Cоздать в программе паскаль авс массив целых чисел с ручным вводом для нахождения суммы элементов — Pascal(Паскаль)Cоздать в программе паскаль авс массив целых чисел с ручным вводом для нахождения суммы элементов —

Const n=10;
var
 a:array[1..n] of integer;
 i: byte;
 sum:real;
begin
sum:=0;
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
sum:=sum+a[i];
end;
writeln;
writeln('Sum:=',sum);
readln
end.

Похожие записи/страницы:

Leave a Comment

+ 81 = 87